home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tn.d64 / c64t-4vm.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  64 lines
  1. 259 REM C64T-4VM  : CEK
  2. 260 POKE56,33:POKE644,33:CLR:Y=PEEK(45)+256*PEEK(46)-943:SYSY:DEFFNC(I)=9472+I*64
  3. 270 PRINTCHR$(142)CHR$(8)"[147]  4-VOICE MUSIC (C64)
  4. 280 [153]"1PLAY 2COMPOSE 3LOAD":[153]"4SAVE 5VERIFY  6TITLE
  5. 290 Z=9216:INPUT"7TUNE 8WAVEFORM";B:ONBGOTO970,300,900,910,920,500,980,550:END
  6. 300 B=0:INPUT"1BAR 2SONG 3COPY";B:ONBGOTO310,800,700:RUN
  7. 310 N=-1:INPUT"BAR #";N:IFN<0ORN>239THEN300
  8. 320 B=0:INPUT"1PLAY 2CLEAR 3EDIT";B:ONBGOTO330,340,350:GOTO310
  9. 330 POKE8960,N:POKE253,0:POKE254,0:GOSUB600:SYSY+504:GOTO320
  10. 340 A$="":INPUT"SURE";A$:IFA$="Y"THENFORI=FNC(N)TOI+63:POKEI,0:NEXT:POKEZ+N,240
  11. 350 H$=" STEP ONN ONN ONN ONN[146]
  12. 360 [153]"LOAD"H$:[129]I[178]1[164]16:[153]I:[130]
  13. 365 [153]"":[151]254,N:[158]Y[170]139:[153]"CMD"H$:[153]" BAR    TIME    LAST
  14. 370 PRINTNTAB(7)PEEK(252)TAB(15)PEEK(251):PRINT"GOTO400";:H$="":END
  15. 400 S=1070:PRINT"[145]       ":L=FNC(N):FORI=0TO15:K=S+I*40:J=252:GOSUB650
  16. 410 POKE2,0:SYSY+306:ONPEEK(2)GOTO440:K=L+4*I+4:J=254:GOSUB650:NEXT
  17. 420 K=1792:GOSUB680:I=M:IFI>12THENPRINT"TIME ERROR":I=0
  18. 430 K=K+8:GOSUB680:POKEZ+N,16*M+I-16:GOTO320
  19. 440 K=L:J=254:GOSUB650:PRINT"[145]ERROR IN"I+1;:INPUT"OK";A$:PRINT"[145]GOTO400           ";:END
  20. 500 H$="FROM,TO,TITLE":PRINTH$:PRINTPEEK(9470)","PEEK(9471);
  21. 503 FORI=9469TO9456STEP-1:J=PEEK(I):IFJ<32ORJ>127THENJ=63
  22. 505 PRINTCHR$(J);:NEXT:PRINT:A$="":INPUT"OK";A$:IFA$<>"N"THENRUN
  23. 510 PRINTH$:INPUTA,B,A$:IFLEN(A$)>14THENA$=LEFT$(A$,14)
  24. 515 IFLEN(A$)<14THENA$=A$+LEFT$("              ",14-LEN(A$))
  25. 520 POKE9470,A:POKE9471,B:FORI=1TO14:POKE9455+I,ASC(MID$(A$,15-I,1)):NEXT:RUN
  26. 550 PRINT"1SINE 2TRIANGLE":INPUT"3RAMP 4SQUARE";I:ONIGOTO560,570,580,590:RUN
  27. 560 PRINT"WAIT...":FORI=0TO255:POKE8448+I,32+31.9*SIN(I/128*(null)):NEXT:RUN
  28. 570 FORI=0TO127:POKE8448+I,I/2:POKE8703-I,I/2:NEXT:RUN
  29. 580 FORI=0TO255:POKE8448+I,I/4:NEXT:RUN
  30. 590 FORI=8448TO8575:POKEI,0:POKEI+128,63:NEXT:RUN
  31. 600 INPUT"B.P.M.";K:K=K*8.35:J=242
  32. 650 POKEJ,K/256:POKEJ-1,K-256*PEEK(J):RETURN
  33. 680 M=PEEK(K)-48:L=PEEK(K+1)-48:IFL>=0THENM=M*10+L:L=PEEK(K+2)-48:IFL>=0THENM=M*10+L
  34. 690 RETURN
  35. 700 INPUT"BARS:FROM,TO";A,N:IFA<0ORA>239ORN<0ORN>239THEN700
  36. 710 M=0:PRINT"TRANPOSITION IN":INPUT"HALF STEPS";M
  37. 720 A$="":INPUT"SURE";A$:ON-(A$<>"Y")GOTO300:POKEZ+N,PEEK(Z+A):A=FNC(A):B=FNC(N)
  38. 730 FORI=0TO63:J=PEEK(A+I):K=JAND128:L=JAND127:IFLTHENL=L+M
  39. 740 POKEB+I,K+(LAND127):NEXT:GOTO350
  40. 800 N=8960:A=-1:B=-3:C=0:PRINT"1SHOW 2DELETE 3INSERT":INPUTC:ONCGOTO806,801,820:GOTO300
  41. 801 INPUT"FROM,TO";A,B:IFA>BORA<0ORA>254ORB<1ORB>255GOTO800
  42. 802 A$="":INPUT"SURE";A$:IFA$<>"Y"THEN800
  43. 803 FORI=ATO255:C=I+N+B-A+1:POKEI+N,PEEK(C):IFC>=ZTHENPOKEI+N,0
  44. 804 NEXT:GOTO800
  45. 806 H$="[166][166][166][166]  [162][162][162]  [162][162][162]  [162][162][162]  [162][162][162]":A=-1:INPUT"AT BAR";A:IFA<0ORA>255THEN300
  46. 807 PRINT"[147]"H$:B=A+63:IFA>192THENA=AAND252:B=255
  47. 808 FORI=ATOBSTEP4:PRINTI;:FORJ=0TO3:PRINTTAB(5+J*5)PEEK(N+I+J);:NEXT:PRINT:NEXT
  48. 809 PRINTH$:H$="":PRINT"GOTO810":S=1070:END
  49. 810 FORI=0TO(B-A)STEP4:FORJ=0TO3:K=S+5*J:GOSUB680:POKEN+A+I+J,M:NEXT
  50. 815 S=S+40:NEXT:PRINT:GOTO800
  51. 820 A=-1:B=-3:INPUT"AFTER BAR, #";A,B:IFA<0ORA>254ORB<0ORA+B>255GOTO800
  52. 821 A$="":INPUT"SURE";A$:IFA$<>"Y"THEN800
  53. 822 FORI=255TOA+BSTEP-1:POKEN+I,PEEK(N+I-B):NEXT:FORI=A+1TOA+B:POKEI+N,0:NEXT:GOTO800
  54. 900 A$="LOAD":D$="":GOTO930
  55. 910 A$="SAVE":D$="":INPUT"MAX. BAR #";I:INPUT"SAVE AS";M$:GOTO930
  56. 920 A$="VERIFY":D$=""
  57. 930 PRINT"[147]";:IFB=4THENPRINT"P[207]43,0:P[207]44,35:P[207]45,0:P[207]46,"I/4+38
  58. 940 PRINT""A$CHR$(34)M$CHR$(34)",1,1"D$:FORI=631TO638:POKEI,13:NEXT:POKE198,8
  59. 950 PRINT"P[207]43,1:P[207]44,8:P[207]45,"PEEK(45)":P[207]46,"PEEK(46)":RUN960";:END
  60. 960 FORI=1TO8:GETM$:NEXT:INPUT"(HIT RETURN)";M$:RUN
  61. 970 INPUT"FROM,TO";A,B:IFA>BTHEN300
  62. 975 GOSUB600:POKE253,A:POKE254,B:SYSY+504:RUN
  63. 980 K=171:Z=2^(1/12):POKE8704,0:POKE8705,0:FORJ=8707TO8897STEP2:GOSUB650:K=K*Z:NEXT:RUN
  64.